home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Dr. Windows 3
/
dr win3.zip
/
dr win3
/
VISUALBA
/
BOZOL2.ZIP
/
LOADRUN.CMD
< prev
next >
Wrap
OS/2 REXX Batch file
|
1994-02-08
|
2KB
|
81 lines
CASE "RUN"
F$=POPARG$
IF LEN(F$) THEN
Fi$=DIR$(F$)
IF Fi$="" THEN
BOZOPRINT "File Not Found."+CrLf$
Prog%=0
ELSE
Fi%=FREEFILE
OPEN Fi$ FOR INPUT AS #Fi%
x%=UBOUND(PROGRAM$)
REDIM PROGRAM$(x%)
MaxLine%=0
DO UNTIL EOF(Fi%)
INCR MaxLine%
LINE INPUT #Fi%, PROGRAM$(MaxLine%)
LOOP
Prog%=1
ProgLine%=0
END IF
ELSE
Prog%=1
ProgLine%=0
END IF
CLOSE #Fi%
CASE "LOAD"
F$=POPARG$
IF LEN(F$) THEN
Fi$=DIR$(F$)
IF Fi$="" THEN
BOZOPRINT "File Not Found." +CrLf$
ELSE
Fi%=FREEFILE
OPEN Fi$ FOR INPUT AS #Fi%
x%=UBOUND(PROGRAM$)
REDIM PROGRAM$(x%)
MaxLine%=0
DO UNTIL EOF(Fi%)
INCR MaxLine%
LINE INPUT #Fi%, PROGRAM$(MaxLine%)
LOOP
Prog%=0
ProgLine%=0
END IF
END IF
CLOSE #Fi%
CASE "QUIT", "END"
EXIT FAR
CASE "LIST"
a%=val(POPARG$)
IF a%=0 then
a%=1:b%=MaxLine%
ELSE
b%=val(POPARG$)
IF b%=0 or b%<a% then b%=a%
if b%>MaxLine% then b%=MaxLine%
END IF
For y%=a% TO b%
IF LEN(PROGRAM$(y%)) THEN BOZOPRINT STR$(y%)+ " " +PROGRAM$(y%)+CrLf$
NEXT y%
CASE "SAVE"
For y%=1 to 1000
IF LEN(RTRIM$(PROGRAM$(y%))) THEN MaxLine%=y%
NEXT y%
a$=POPARG$
Buf=FREEFILE
OPEN a$ FOR OUTPUT AS #buf
For y%=1 TO MaxLine%
PRINT #Buf, PROGRAM$(y%)
NEXT y%
CLOSE #Buf